home *** CD-ROM | disk | FTP | other *** search
/ LOGIC Apps / Logic-APPLE_II_APPS.iso / mac / LOGIC Apple II 5.25" Library - ProDOS / PRO001.dsk / FIN / TRIP.COST.ANAL.bas < prev   
BASIC Source File  |  2012-02-16  |  3KB  |  119 lines
  1. 3  HOME 
  2. 5  PRINT : PRINT : PRINT : PRINT : PRINT : PRINT : PRINT : PRINT : PRINT 
  3. 8  SPEED= 255
  4. 10  PRINT "  AN ORIGIONAL PROGRAM BY PAUL PAGE": PRINT : PRINT 
  5. 15  PRINT "              MAY 24,1978 "
  6. 20  GOSUB 110
  7. 25  HOME 
  8. 28  SPEED= 150
  9. 30  PRINT : PRINT : PRINT : PRINT : PRINT : PRINT : PRINT : PRINT 
  10. 32  PRINT : PRINT 
  11. 35  PRINT  TAB( 5)"TRIP EXPENSE ESTIMATING PROGRAM"
  12. 40  GOSUB 110
  13. 100  GOTO 1000
  14. 110  FOR I = 1 TO 5000
  15. 120  NEXT I
  16. 130  RETURN 
  17. 150  FOR I = 1 TO N
  18. 155  PRINT 
  19. 160  PRINT "CITY NUMBER ";I;
  20. 165  INPUT C$(I)
  21. 170  NEXT I
  22. 180  RETURN 
  23. 200  FOR I = 1 TO N
  24. 220  PRINT "TRANS COST TO/FROM AIRPORT IN ";C$(I)
  25. 230  INPUT T(I)
  26. 235  IF T(I) = 0  THEN T(I) = 20
  27. 238  IF T(I) = 0  THEN T(I) = 0
  28. 240  NEXT I
  29. 245  RETURN 
  30. 250  FOR I = 1 TO D -1
  31. 260  PRINT "HOTEL EXPENSES FOR NIGHT ";I;
  32. 270  INPUT "$";H(I)
  33. 280  NEXT I
  34. 290  RETURN 
  35. 300  LET HT = (D -1) *37
  36. 320  RETURN 
  37. 350  FOR I = 1 TO N
  38. 360 TT = T(I) +TT
  39. 370  NEXT I
  40. 375 TT = TT +T
  41. 380  RETURN 
  42. 400  FOR I = 1 TO D
  43. 410 HT = HT +H(I)
  44. 420  NEXT I
  45. 430  RETURN 
  46. 500  PRINT 
  47. 510  PRINT "RENTAL CAR                      $"R *D
  48. 520  PRINT 
  49. 530  PRINT "MISCELLANEOUS                   $"D *25
  50. 535  PRINT : PRINT 
  51. 540  FLASH 
  52. 550  PRINT "TOTAL EXPENSES                  ";
  53. 552  NORMAL 
  54. 553  PRINT "$";
  55. 554  PRINT A +TT +HT +(F *D) +(R *D) +(D *25)
  56. 560  PRINT : PRINT 
  57. 575  RETURN 
  58. 1000  HOME 
  59. 1005  PRINT : PRINT : PRINT : PRINT 
  60. 1010  PRINT "   THIS PROGRAM ESTIMATES THE EXPENSES"
  61. 1015  PRINT 
  62. 1020  PRINT "OF A PROJECTED TRIP BASED ON ACTUAL"
  63. 1025  PRINT 
  64. 1030  PRINT "KNOWN EXPENSES OR IF THESE ARE NOT"
  65. 1035  PRINT 
  66. 1040  PRINT "KNOWN THEN EXPENSES ARE FIGURED ON"
  67. 1045  PRINT 
  68. 1050  PRINT "AVERAGES FROM PREVIOUS TRIPS."
  69. 1055  PRINT 
  70. 1060  PRINT : PRINT : PRINT : PRINT 
  71. 1070  PRINT "HIT ANY KEY TO CONTINUE.....";
  72. 1080  GET Z$
  73. 1090  HOME 
  74. 1092  PRINT : PRINT 
  75. 1094  INPUT "HOW MANY PLACES ARE YOU GOING ?";N
  76. 1096  GOSUB 150
  77. 1175  PRINT : PRINT 
  78. 1200  INPUT "TOTAL AIRFARE                   $";A
  79. 1203  PRINT 
  80. 1204  PRINT "IF THE TRANSPORTATION COST ARE NOT"
  81. 1205  PRINT "KNOWN THEN ENTER '0' FOR COST": PRINT 
  82. 1208  PRINT "IF THERE ARE NO TRANSPORTATION COST"
  83. 1209  PRINT "THEN ENTER '00' FOR COST": PRINT 
  84. 1210  PRINT "TRANS COST TO/FROM BALTIMORE AIRPORT "
  85. 1215  INPUT T
  86. 1220  GOSUB 200
  87. 1300  INPUT "HOW MANY DAYS WILL YOU BE GONE ";D
  88. 1310  PRINT 
  89. 1320  PRINT "ARE YOU GOING TO HAVE A RENTAL CAR Y/N";
  90. 1325  INPUT X$
  91. 1330  IF X$ = "Y"  THEN  INPUT "AMOUNT PER DAY";R
  92. 1332  PRINT 
  93. 1335  PRINT "ARE THE HOTEL EXPENSES KNOWN Y/N "
  94. 1337  GET Y$
  95. 1340  IF Y$ = "Y"  THEN  GOSUB 250
  96. 1350  IF Y$ = "N"  THEN  GOSUB 300
  97. 1360  PRINT 
  98. 1370  PRINT "WHAT IS YOUR ESTIMATED DAILY FOOD"
  99. 1380  PRINT "EXPENSE ALLOWANCE ";: INPUT F
  100. 1400  HOME 
  101. 1410  PRINT : PRINT 
  102. 1420  PRINT "***************************************": PRINT 
  103. 1430  PRINT  TAB( 10)"ESTIMATED TRIP EXPENSES": PRINT 
  104. 1440  PRINT "***************************************"
  105. 1450  PRINT 
  106. 1460  PRINT "TOTAL AIRFARE                   $";A
  107. 1462  PRINT 
  108. 1465  GOSUB 350
  109. 1470  PRINT "TRANSPORTATION EXPENSES         $";TT
  110. 1472  PRINT 
  111. 1475  GOSUB 400
  112. 1480  PRINT "HOTEL EXPENSES                  $";HT
  113. 1482  PRINT 
  114. 1490  PRINT "ESTIMATED MEAL EXPENSES         $";F *D
  115. 1500  GOSUB 500
  116. 1520  PRINT "DO YOU WANT TO ENTER ANOTHER TRIP Y/N ";: INPUT N$
  117. 1525  IF N$ = "Y"  THEN 1090
  118. 1530  PRINT " THANK YOU FOR USING THIS PROGRAM"
  119. 1550  SPEED= 255